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Common Lisp Overview 


Common Lisp is a commonly used dialect of LISP 

2nd oldest high-level programming language 

Both functional and object-oriented 

Based on mathematical notation, and the syntax relies heavily on 


parentheses 


(print "Hello, world!") 


Variables and Assignment Review 


Local Variables Multiple Assignment with Local Variables 
- Defined with let, redefined with - Using let 
setq/setf (let ((<var1> <expression1>) 
- (let (<var> <expression>) ) (<var2> <expression2>) ) ) 
Ex: (let (str "Hello, world!")) - Using multiple-value-bind 
(multiple-value-bind <var-1 .. var-n> 
Dynamic (Global) Variables <expression> <optional body using var>) 
- Defined with defvar or defparameter 
-  (defvar «var» <expression>) 
-  (defparameter «var» <expression>) 


Built-In Types and Operators Review 


Integer Types 
-  bignum 
- fixnum 
Rational Type 
- ratio 
Floating Point Types 
- short-float 
- single-float 
- double-float 
- Long-float 
Complex Numbers 
- #C(1 1) or (complex (+ 1 2) 5) 
- (realpart #C(7 9)) or (imagpart #C(7 
Boolean Type 
- Value nil is false; all other values 
true (usually t) 
Comparison Operators for above types 
=, /=, >, <, >=, <=, eql (checks type) 


Character Type 
- #\x: represents character ‘x’ 
- CHAR=, CHAR/=, CHAR<, CHAR>, 
String Type 
- One-dimensional array of 
characters 
- Compared using STRING=, STRING<, 
etc 
Logical Operators 
- and, or, not 


etc, 


9)) 


are 


Composite Data Types 


Sequences: underlying structure of lists, vectors (1D arrays), and strings 
Lists 
- Special object which represents empty list 
- Made up of cons cells, which are essentially nodes -> allows circular lists 
- Format is (cons car cdr) 
- Can be a two-element structure: (cons 1 2) -> (1.2) 
- Becomes a list if cdr of last cell is : (cons 1 (cons 2 )) -> (12) 
Literal list object: (list 1 2) -> (1 2) OR '(1 2) -> (1 2) 
Get length with (list-length <list>) -> returns length OR if circular 
- Compare/use lists using set functions (e.g., union) 
Arrays 
- Dimensional collections of objects 
- Create and modify using make-array and adjust-array 
- (defparameter myarray (make-array '(2 2) :initial-element 1)) -> #2A((1 1) (1 1)) 
- 1-dimensional arrays are vectors 


Hash Tables: map keys to values -> (setf (gethash 'one-entry *my-hash*) 
Alists: association lists, made up of cons cells -> (FOO . “foo”) (BAR . “bar”) 
Plists: property lists, cons cells alternates keys and values -> FOO “foo” BAR “bar” 


Composite Data Types 


Structures 
- Common Lisp’s version of a struct 
- Define using defstruct 


(defstruct person 
name 
id 
birthday) 


- Automatically populates some functions 
- Access functions to get inner variables (similar to “get” methods) 
- Type checking function person-p -> returns true if of type person 
- Constructor function make-person 
Print function (similar to toString) 
- Copy function copy-person 
- Can altered variables using (setf (name person1) “Bob”) 


Selection Review 


Conditional Statements 
- (if <condition> <value if true> <value if false>) 
Exs (if 25 Oo) A3 


(cond (test then) (t else)) 
Ex: (cond (t 5) (t 6)) = 5 


(when <condition> <value>) 
Ex: (when t 5) - 5 


(unless <condition> <value>) 
Ex: (unless t 5) = NIL 


Iteration and Recursion Review 


Iteration Recursion 
- Built-in loop and do keywords - Recursion is an important feature of 
(loop for <var> in <list> Common Lisp 
do (<action>) ) Ex.: (def factorial (x) 
(cond (= x 1 1) 


Keyword dotimes (t (* x (factorial (- x 1)))))) 
(dotimes (i 10) 


(print i)) 


Macro iter 
(iter (for <var> from <value1> to <value2>)) 


No existing while loop, can define macro 
(defmacro while (condition &body body) 
(loop while, condition do (progn ,@body) ) ) 


Subroutines 


Functions in Common Lisp are defined 
with the defun keyword 

Existing functions can be called 
with the terms funcall or apply 
Anonymous functions can be written 
using the lambda macro 

The syntax #' can be used to signify 
that the program is searching for a 
function name, rather than a value 
of the function 


(defun add(x, y) 
(+ x y)) 
(defun hello-world() 
(Ormar © VEleiLike, wrorellel! w) 
(defun calladd() 
(fumeaill ladda (x y) 
(defun calladd2 () 
(apply add(x y))) 


(lambda (x) 

(= 0 (mod x 2))) 
(funcall #'add(x y)) 
(funcall #'add '(1 2)) 
(funcall #'(lambda (x y) 


(r x y) 


2 3) 


Parameter Passing 


e Uses call by sharing 
o All variables are references to object -> that reference is passed 
o Formal and actual parameters refer to the same object 


e Allows for a fixed or variable number of parameters 
o User-defined functions have a fixed number by default 


e Uses positional association by default, but allows named association 


Variable Number of Parameters 


List any required Format: 
arguments first, then (defun func-name 
&rest plus a name for 
the parameter list Example? : 
(defun count-arguments (&rest args) 
(length args)) 


(required-parameters &rest args)) 


(Count arguments 2 3 4-5) 
-> 5 
(count-arguments) 
=> 0 
2.https://ccrma.stanford.edu/courses/220b 


-winter-2005/topics/commonlisp/arguments. 
html 


Named Parameters 


e Use skey before any named 
parameters 
o They have a default 
value and are 
optional 


2.https://ccerma.stanford.edu/courses/22@b-wint 
er-2005/topics/commonlisp/arguments .html 


Format: (defun func-name (&key (param-namel 
defaultl) (param-name2 default2) ...)) 
Call: (func-name :param-namel valuel :param-name2 
value2) 


Example?: 
(defun poem (&key (rose-color 'red) 
(violec=color “blue)) 

(list “roses "are rcose=cColor and “violers 
"are violet-color) ) 


(poem) 

-> (roses are red and violets are blue) 

(poem :violet-color 'violet :rose-color 'yellow) 
-> (roses are yellow and violets are violet) 


Data Abstraction Overview 


Common Lisp supports object-oriented programming 


It is class based (every object is an instance of a class) 
o Every class is a subclass of the root class T (done implicitly) 


Users can define new classes 
o Methods are associated with these classes through generic functions 
(encapsulation) 


Supports multiple inheritance 


Defining Classes 


Format of a class: These are all valid definitions 
of the person class: 


(detclass <class-name- (list Gf super (defclass person () 
classes) ( (name 
((slot-1 :initarg :name 
:accessor name) 
 slot-coplLionm slor-argument) 
(lisper 
(slot-2, etc)) einicrorm mil 
:accessor lisper) )) 


(defclass person () 
(name lisper) ) 


(defclass person () ) 


Defining Classes 


e Instances of classes are (defvar pl (make-instance 'person :name 
created with make-instance "me") ) 

o But good practice to 

define a constructor 


(defun make-person (name &key lisper) 
for it 


(make-instance 'person :name name :lisper 


lisper) ) 


Accessing Variables in Classes 


e Variables in classes are Format: (slot-value <object> <slot-name>) 
accessible at any point 
outside the class (defvar pl (make-instance ‘person 
o Accessed using “name “Bryn”) ) 
“slot-value” 
(slot-value pl ‘name) 
=> “Bryn” 


(setf (slot-value pl ‘lisper “yes”)) 


(sort value pl “lisper) 
= “yes” 


Generic Functions 


Core of Common Lisp’s 

object-oriented-ness 

How classes are associated with 

behaviors 

o The generic function takes 

the class it’s associated 
with as a parameter 
Its subclasses inherit this 
function (like how circle 
inherited shape’s function) 


(defclass shape () ) 


(defgeneric calc-area (shape) 
(:documentation “calculate the area 
of the shape”) ) 


(defclass circle (shape) 
(radius)) 


(defmethod calc-area ((shape circle)) 


(= pi (= rzacdius racius))) 


Standard Method Combination 


Four types of methods: primary, before, after, and around 
o All functions shown previously have been primary functions 


Before methods get called before the primary method, after methods after, 
and around methods when relevant and called by call-next-method 


The type is declared with a method qualifier (if none, primary is assumed) 
(defmethod method-name :before (...) ...) 


(defmethod method-name :after (...) ...) 
(dermerhnod methods name tarung (aao) oca) 


Before and After Methods 


; Define a primary method (combo1l 17) 
(detmethod combel ((x number)) (orint "Srimary)) BEFORE-INTEGER 


BE OL Paha hone i 
PRIMARY 
AFTER-RATIONAL 
Po BRS tN Teer. 


; Define before methods 

(defmethod combol :before ((x integer) ) 
(print 'before-integer)) 

(dermethod combol -besore ({x rational) ) 
(Orit “before~7racional) ) 


; Define after methods 
(defmethod combol :after ((x integer)) (combol 4/5) 
(print Jenter- integer) ) = SEEORES EAT IONa: 
-> PRIMARY 


(defmethod combol :after ((x rational) ) -5 AFTER-RATIONAL 


(eri alter = teak tone 


Example from 12. https://dept-info.labri.fr/~strandh/Teaching/MTP/Common/David-Lamkins/chapter14.html 


(d 


(d 
(d 


(d 


(d 


; Define a primary method 


Around Methods and call-next-method 


efmethod combo2 ((x number)) (print 'primary) ) 


Derine a berorce macho anc Cree meroa 


efmethod combo2 :before ((x integer)) (print 'before-integer) ) 
efmethod combo2 :after ((x integer)) (print 'after-integer) ) 


; Define around methods 


erimerniod combo around (xx T E loat) 
(print "arcund-tloat-beftore-cali-next-method) 


(let ((result (call-next-method (float (truncate x))))) 


(print 'around-float-after-call-next-method) 
result) 
efmethod combo2 :around ((x number)) 
(print 'around-number-before-call-next-method) 
(print (call-next-method) ) 
(print 'around-number-after-call-next-method)) 


(Combe 17) 
-> AROUND-NUMBER-BEFORE-C 
ALL-NEXT-METHOD 

-> BEFORE-INTEGER 

-> PRIMARY 

-> AFTER-INTEGER 

-> AROUND-NUMBER-AFTER- 
CALL-NEXT-METHOD 


(combo2 82.3) 

-> AROUND-FLOAT-BEFORE-— 
CALL-NEXT-METHOD 

-> AROUND-NUMBER-BEFORE-— 
CALL-NEXT-METHOD 

SE MERIIMARNY 

-> AROUND-NUMBER-AFTER- 
CALL-NEXT-METHOD 

-> AROUND-FLOAT-AFTER- 

CALL-NEXT-METHOD 


Example from 12. 
https://dept-info.1 
abri.fr/~strandh/Te 
aching/MTP/Common/D 
avid-Lamkins/chapte 
r14.html 


Exception Handling 


Common Lisp uses conditions to represent 
errors/exceptions or places in a program 
where there are branches in logic 


Creating Conditions 


Built-in conditions 
User-defined conditions: define 
using define-condition and 
initialize using make-condition 


Throwing Conditions 


Can throw using error or warn 
Depends on whether opening debugger 
Also has simple form 


(define-condition my-division-by-zero (error) 
((dividend :initarg :dividend 
:initform nil 
:reader dividend) ) 
(:report (lambda (condition stream) 
(format stream "You were going to divide ~a by 
zero.~&" (dividend condition))))) 


(make-condition 'my-division-by-zero :dividend 3) 


(error 'my-division-by-zero :dividend 3) 

33 Debugger: 

33 

33 You were going to divide 3 by zero. 
[Condition of type MY-DIVISION-BY-ZERO] 


ee 
OB) 


(warn 'my-division-by-zero :dividend 3) ;; no debugger 


(error “This is an error!”) ;; type simple-error 


Exception Handling 


After we define our conditions, we can 
handle them in many ways: 


Ignore: ignore-errors 
- Returns NIL and condition 
Catch: handler-case 
- Similar to try/catch 
- General or specific 
Mapping: handler-bind 
- Specify different functions 
for possible conditions 
“Finally”: unwind-protect 
- Similar to the “finally” of 
try/catch/finally 


(ignore-errors 
(/ 3 @)) 
3 (condition details display here) 
NIL 
#<DIVISION-BY-ZERO {1008FF5F13}> 


(handler-case (/ 3 @) 
(error (c) 
(format t "We caught a condition.~&") 
(values @ c))) 


(handler-case (/ 3 @) 
(division-by-zero (c) 
(format t "Caught division by zero: ~a~%" c))) 


(handler-bind ((opts:unknown-option #'unknown-option) 
(opts:missing-arg #'missing-arg) 
(opts:arg-parser-failed #'arg-parser-failed) ) 

(opts: get-opts) ) 


(unwind-protect (/ 3 @) 
(format t "This won’t cause issues.~&")) 


Exception Handling 


We can also use restarts and Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL. 


assertions to deal with conditions. restarts (invokable by number or by possibly-abbreviated name): 
@: [ABORT] Exit debugger, returning to top level. 


Restarts: options in debugger 


used to manne conditions (defun divide-with-restarts (x y) 33 simplified version 
= Can define our own cases (restart-case (/ x y) 


. z (return-zero () restarts: 
using restart-case o) 9 Ø: [RETURN-ZERO] 


Assertions: check truth value (divide-by-one () : [DIVIDE-BY-ONE] 


i j C x ADD : [ABORT] 
Usang Aperi and debug if needed (divide-with-restarts 3 @) SN RETRYI 


(assert (realp 3)) (divide 3 @) 
33 NIL = passed 33 Y can not be zero. Please change it 
He [Condition of type SIMPLE-ERROR | 
(defun divide (x y) Pi 
(assert (not (zerop y)) ;; Restarts: 
(y) 33 list of values we can change. 33 ©: [CONTINUE] Retry assertion with new value for Y. 
"Y can not be zero. Please change it") 


(/ x y)) 


Resources 


Programming Languages Pragmatics (class textbook) 
https://ccrma.stanford.edu/courses/220b-winter-2005/topics/commonlisp/arguments 
html 

https://lispcookbook.github.io/cl-cookbook/error. handling.html 
http://cl-cookbook.sourceforge.net/functions.html 
https://en.wikipedia.org/wiki/Defun 
https://www.cs.cmu.edu/Groups/AI/html/c1t1/c1lm/node81.html 
http://www.gigamonkeys.com/book/functions.html 
http://www.gigamonkeys.com/book/practical-a-simple-database.html 
https://towardsdatascience.com/a-swift-introduction-to-common-lisp-16a2f154c423 
https://lispcookbook.github.io/cl-cookbook/clos.html 
http://www.gigamonkeys.com/book/object-reorientation-generic-functions.html 
https://dept-info.labri.fr/-strandh/Teaching/MTP/Common/David-Lamkins/chapter14 
.html 

han Ye penton ee github.io/cl-cookbook/data-structures.html 


